
\begin{tikzpicture}[scale=4]
  \coordinate[label=below:$B$] (B) at (0,0);
  \coordinate[label=below:$C$] (C) at (1,0);
  \coordinate[label=above:$A$] (A) at ($ (B)!1! 60:(C) $);
  \coordinate[label=left:$P$] (P) at ($ (A)!1/3!(B) $);
  \coordinate[label=below:$Q$] (Q) at ($ (B)!4/3!(C) $);
  \coordinate[label=above right:$D$] (D) at ($ (A)!2/3!(C) $);
  \coordinate[label=right:$E$] (E) at ($ (A)!(P)!(C) $);
  \coordinate[label=right:$C'$] (C') at ($ (A)!1/3!(C) $);
  \pic[mark angle={green}{3mm}{1}] {right angle=A--E--P};
  \draw (C) -- (A) -- (B) -- (Q) -- (P) (P) -- (E);
  \draw[blue] (C') -- (A) -- (P) (C) -- (Q);
  \draw[blue, dashed] (C') -- (P);
  \fill[opafill=red] (P) -- (C') -- (C) -- (Q) -- cycle;
  \fill[opafill=blue] (A) -- (P) -- (C') -- cycle;
\end{tikzpicture}
